home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / status_1 / frmtest.frm next >
Text File  |  1999-07-15  |  1KB  |  40 lines
  1. VERSION 5.00
  2. Object = "{AA36F3B6-38AA-11D3-80D9-444553540001}#4.0#0"; "StatBar.ocx"
  3. Begin VB.Form frmTest 
  4.    Caption         =   "StatBar Control"
  5.    ClientHeight    =   1485
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6105
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   99
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   407
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin StatBar.StatusBar StatusBar1 
  15.       Height          =   765
  16.       Left            =   675
  17.       Top             =   375
  18.       Width           =   4740
  19.       _ExtentX        =   8361
  20.       _ExtentY        =   1349
  21.       Minimum         =   -100
  22.       Value           =   -100
  23.    End
  24. End
  25. Attribute VB_Name = "frmTest"
  26. Attribute VB_GlobalNameSpace = False
  27. Attribute VB_Creatable = False
  28. Attribute VB_PredeclaredId = True
  29. Attribute VB_Exposed = False
  30. Option Explicit
  31. Const MAX = 10000
  32.  
  33. Private Sub Form_DblClick()
  34. Dim i As Long
  35.     StatusBar1.Maximum = MAX
  36.     For i = 0 To MAX
  37.         StatusBar1.Value = i
  38.     Next i
  39. End Sub
  40.